#!/usr/bin/env tclsh

set f main.tcl 
puts [file extension $f]
if { [file isfile $f] == 1} {
    puts "$f是文件"
} else {
    puts "$f不是文件"
}




